home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / databases / mui-rechnung / installation < prev    next >
Text File  |  1996-04-02  |  8KB  |  443 lines
  1. ;
  2. ; Installations-Skript für das komplette Rechnungsprogramm.
  3. ;
  4. ; V2.27 (02.04.1996)
  5. ;
  6.  
  7. ; Die Routine im Fehlerfall
  8.  
  9. (onerror
  10.     (makeassign "MUI-Rechnung" (safe))
  11. )
  12.  
  13. (complete 0)
  14.  
  15. ; Falls die Installation erneut gestartet wird
  16.  
  17. (makeassign "MUI-Rechnung" (safe))    ; neu starten ohne Assigns
  18.  
  19. ;
  20. ; 1. Teil
  21. ;
  22. ; Installation von 'Rechnung' mit allen dazugehörigen Dateien
  23. ;
  24.  
  25. (set Rechnung_dest            ; Variable für den Pfad
  26.     (tackon
  27.         (askdir
  28.             (prompt "In welchem Verzeichnis soll ein Verzeichnis \"MUI-Rechnung\" "
  29.                     "angelegt werden und das Programm MUI-Rechnung installiert "
  30.                  "werden?")
  31.             (help @askdir-help)
  32.             (default @default-dest)
  33.         )
  34.         "MUI-Rechnung"
  35.     )
  36. )
  37.  
  38. (makedir Rechnung_dest (infos))
  39.  
  40. ; für den Installer noch das endgültige Verzeichnis mitteilen
  41.  
  42. (set @default-dest Rechnung_dest)
  43.  
  44. ; Teste nach, ob es sich um OS2.x oder OS3.x handelt
  45.  
  46. (set vernum (getversion "exec.library" (resident)))
  47. (set ver (/ vernum 65536))
  48.  
  49. (if (>= ver 39)
  50.     (set This_dest (tackon "libs:" "Gadgets"))
  51.     (set This_dest (tackon Rechnung_dest "Gadgets"))
  52. )
  53.  
  54. ; Kopiere das Gadget
  55.  
  56. (copylib
  57.     (prompt "Kopiere das Textfield.gadget.")
  58.     (help @copylib-help)
  59.     (source "Gadgets/textfield.gadget")
  60.     (dest This_dest)
  61.     (infos)
  62.     (confirm)
  63. )
  64.  
  65.  
  66. ; Kopiere die Files...
  67.  
  68. (copylib
  69.     (prompt "Kopiere das Programm \"MUI-Rechnung\".")
  70.     (help @copylib-help)
  71.     (source "MUI-Rechnung")
  72.     (dest Rechnung_dest)
  73.     (infos)
  74.     (confirm)
  75. )
  76.  
  77. (complete 15)
  78.  
  79. (copylib
  80.     (prompt "Kopiere die Online-Hilfe für \"MUI-Rechnung\".")
  81.     (help @copylib-help)
  82.     (source "MUI-Rechnung.guide")
  83.     (dest Rechnung_dest)
  84.     (infos)
  85.     (confirm)
  86. )
  87.  
  88. (complete 25)
  89.  
  90. (if (= (exists (tackon Rechnung_dest "Edit invoicepatch.tex") ) 0)
  91.     (copyfiles
  92.         (prompt "Kopiere Editor-Icon.")
  93.         (help @copyfiles-help)
  94.         (source "Edit invoicepatch.tex")
  95.         (dest Rechnung_dest)
  96.         (infos)
  97.         (confirm)
  98.     )
  99. )
  100.  
  101. (if (= (exists (tackon Rechnung_dest "Konfiguration.dat") ) 0)
  102.     (copyfiles
  103.         (prompt "Kopiere Default-Konfiguration.")
  104.         (help @copyfiles-help)
  105.         (source "Konfiguration.dat")
  106.         (dest Rechnung_dest)
  107.         (confirm)
  108.     )
  109. )
  110.  
  111. (if (= (exists (tackon Rechnung_dest "Kundenkategorien.dat") ) 0)
  112.     (copyfiles
  113.         (prompt "Kopiere Kundenkategorien.")
  114.         (help @copyfiles-help)
  115.         (source "Kundenkategorien.dat")
  116.         (dest Rechnung_dest)
  117.         (confirm)
  118.     )
  119. )
  120.  
  121. (if (= (exists (tackon Rechnung_dest "Artikelkategorien.dat") ) 0)
  122.     (copyfiles
  123.         (prompt "Kopiere Artikelkategorien.")
  124.         (help @copyfiles-help)
  125.         (source "Artikelkategorien.dat")
  126.         (dest Rechnung_dest)
  127.         (confirm)
  128.     )
  129. )
  130.  
  131. (if (= (exists (tackon "" "MUI-Rechnung.user") ) 1)
  132.     (copyfiles
  133.         (prompt "Kopiere Konfigurationsdatei.")
  134.         (help @copyfiles-help)
  135.         (source "MUI-Rechnung.user")
  136.         (dest Rechnung_dest)
  137.         (confirm)
  138.     )
  139. )
  140.  
  141. (complete 30)
  142.  
  143.  
  144. (set This_dest
  145.     (tackon
  146.         Rechnung_dest
  147.         "TeXwork"
  148.     )
  149. )
  150. (if (= (exists (tackon This_dest "invoice.tex") ) 1)
  151.     (delete (tackon This_dest "invoice.tex")
  152.         (prompt "Lösche altes TeX-Format.")
  153.         (help @delete-help)
  154.         (optional "force")
  155.     )
  156. )
  157.  
  158. (copyfiles
  159.     (prompt "Kopiere TeX-Files.")
  160.     (help @copyfiles-help)
  161.     (source "TeXwork")
  162.     (choices "invoicepatch.tex" "ecma94.tex" "german.sty" "checkprt.dvi" "invoicemacro.tex" "listmacro.tex" "labelmacro.tex" "ShowDVI.rexx" "DVIprint.rexx")
  163.     (dest This_dest)
  164.     (confirm)
  165. )
  166.  
  167. (complete 35)
  168.  
  169. ;
  170. ; 2. Teil
  171. ;
  172. ; Installation von TeX
  173. ;
  174.  
  175. (set is_TeX_update 0)
  176. (set TeX_dest (getassign "TeX" "a"))
  177.  
  178. ; Wenn es ein Update ist, dann wahrscheinlich im alten Pfad installieren
  179.  
  180. (if TeX_dest
  181.     (if (askbool
  182.             (prompt "Ihre aktuelle Version von TeX befindet sich vermutlich im Verzeichnis \""
  183.                     TeX_dest
  184.                     "\". Wollen Sie TeX in dieses Verzeichnis installieren (siehe hierzu unbedingt 'Help...'!) ?")
  185.             (help
  186.                 "Das Installationsprogramm hat erkannt, daß Sie evtl. bereits eine "
  187.                 "Version von TeX auf Ihrem System installiert haben.\n\n"
  188.                 "Falls Sie TeX nur in Verbindung mit der MUI-Rechnung verwenden, wählen Sie "
  189.                 "JA, um die Installation im bisherigen Verzeichnis fortzuführen.\n\n"
  190.                 "Falls Sie TeX auch anderweitig verwenden ist es nicht ratsam, die Installation in "
  191.                 "das gleiche Verzeichnis durchführen zu lassen. Wählen Sie zuerst NEIN und "
  192.                 "geben Sie ein anderes Verzeichnis an, um vorübergehend das mitgelieferte "
  193.                 "TeX zu verwenden.\n\n"
  194.                 "Wenn Sie TeX auch anderweitig verwenden, können Sie die Installation auch "
  195.                 "an dieser Stelle abbrechen.\n\n"
  196.                 "Bei Problemen mit TeX hilft Ihnen der Autor von MUI-Rechnung gerne weiter."
  197.             )
  198.             (default 1)
  199.         )
  200.  
  201.         (set is_TeX_update 1)
  202.     )
  203. )
  204.  
  205. ; Falls es kein Update ist, den gewünschten Pfad erfragen.
  206.  
  207. (if (NOT is_TeX_update)
  208.     (set TeX_dest
  209.         (tackon
  210.             (askdir
  211.                 (prompt "In welchem Verzeichnis soll ein Verzeichnis \"TeX\" angelegt "
  212.                         "und TeX installiert werden?")
  213.                 (help @askdir-help)
  214.                 (default @default-dest)
  215.             )
  216.             "TeX"
  217.         )
  218.     )
  219. )
  220.  
  221. ; Erzeuge Schublade mit Icon, falls sie noch nicht vorhanden ist.
  222.  
  223. (if (NOT is_TeX_update)
  224.     (makedir TeX_dest (infos))
  225. )
  226.  
  227. ;
  228. ; altes File evtl. loeschen
  229. ;
  230.  
  231. (if is_TeX_update
  232.     ;
  233.     ; altes Formatfile loeschen
  234.     ;
  235.     (if (= (exists (tackon TeX_dest "formats/invoice.fmt") ) 1)
  236.         (delete (tackon TeX_dest "formats/invoice.fmt")
  237.             (prompt "Lösche altes TeX-Format.")
  238.             (help @delete-help)
  239.             (optional "force")
  240.         )
  241.     )
  242.  
  243.     ;
  244.     ; alte TeX-Files loeschen
  245.     ;
  246.     (if (= (exists (tackon TeX_dest "invoice.tex") ) 1)
  247.         (delete (tackon TeX_dest "invoice.tex")
  248.             (prompt "Lösche altes TeX-Format.")
  249.             (help @delete-help)
  250.             (optional "force")
  251.         )
  252.     )
  253.     (if (= (exists (tackon TeX_dest "invoicepatch.tex") ) 1)
  254.         (delete (tackon TeX_dest "invoicepatch.tex")
  255.             (prompt "Lösche altes TeX-Format.")
  256.             (help @delete-help)
  257.             (optional "force")
  258.         )
  259.     )
  260.     (if (= (exists (tackon TeX_dest "checkprt.dvi") ) 1)
  261.         (delete (tackon TeX_dest "checkprt.dvi")
  262.             (prompt "Lösche altes TeX-Format.")
  263.             (help @delete-help)
  264.             (optional "force")
  265.         )
  266.     )
  267. )
  268.  
  269. (makeassign "TeX" TeX_dest)
  270.  
  271. ; Bin-Dateien sind noch auf der ersten Diskette
  272.  
  273. (set This_dest
  274.     (tackon
  275.         TeX_dest
  276.         "bin"
  277.     )
  278. )
  279. (copyfiles
  280.     (prompt "Kopiere ausführbare Programme für TeX.")
  281.     (help @copyfiles-help)
  282.     (source "TeX/bin")
  283.     (dest This_dest)
  284.     (confirm)
  285.     (all)
  286. )
  287.  
  288. (complete 50)
  289.  
  290. ;
  291. ; Formatfile fuer TeX
  292. ;
  293.  
  294. (set This_dest
  295.     (tackon
  296.         TeX_dest
  297.         "formats"
  298.     )
  299. )
  300.  
  301. ;
  302. ; altes File evtl. loeschen
  303. ;
  304.  
  305. (if (= (exists (tackon This_dest "invoice.fmt") ) 1)
  306.     (delete (tackon This_dest "invoice.fmt")
  307.         (prompt "Lösche altes TeX-Format.")
  308.         (help @delete-help)
  309.         (optional "force")
  310.     )
  311. )
  312.  
  313. ;
  314. ; nur noch das Plain.fmt kopieren
  315. ;
  316.  
  317. (copyfiles
  318.     (prompt "Kopiere Formatdatei für TeX.")
  319.     (help @copyfiles-help)
  320.     (source "TeX/formats")
  321.     (dest This_dest)
  322.     (all)
  323. )
  324.  
  325. (complete 75)
  326.  
  327. (set This_dest
  328.     (tackon
  329.         TeX_dest
  330.         "config"
  331.     )
  332. )
  333. (copyfiles
  334.     (prompt "Kopiere Konfiguration für TeX.")
  335.     (help @copyfiles-help)
  336.     (source "TeX/config")
  337.     (dest This_dest)
  338.     (all)
  339. )
  340.  
  341. (complete 78)
  342.  
  343. (set This_dest
  344.     (tackon
  345.         TeX_dest
  346.         "rexx"
  347.     )
  348. )
  349. (copyfiles
  350.     (prompt "Kopiere ARexx Dateien für TeX.")
  351.     (help @copyfiles-help)
  352.     (source "TeX/rexx")
  353.     (dest This_dest)
  354.     (all)
  355. )
  356.  
  357. (complete 80)
  358.  
  359. (set This_dest
  360.     (tackon
  361.         TeX_dest
  362.         "fonts"
  363.     )
  364. )
  365. (copyfiles
  366.     (prompt "Kopiere Fonts für TeX.")
  367.     (help @copyfiles-help)
  368.     (source "TeX/fonts")
  369.     (dest This_dest)
  370.     (all)
  371. )
  372.  
  373. (complete 85)
  374.  
  375. (set This_dest
  376.     (tackon
  377.         TeX_dest
  378.         "pk"
  379.     )
  380. )
  381. (copyfiles
  382.     (prompt "Kopiere Fonts für TeX.")
  383.     (help @copyfiles-help)
  384.     (source "TeX/pk")
  385.     (dest This_dest)
  386.     (optional "nofail")
  387.     (all)
  388. )
  389.  
  390. (complete 90)
  391.  
  392. (set This_dest
  393.     (tackon
  394.         TeX_dest
  395.         "pool"
  396.     )
  397. )
  398. (copyfiles
  399.     (prompt "Kopiere Pool für TeX.")
  400.     (help @copyfiles-help)
  401.     (source "TeX/pool")
  402.     (dest This_dest)
  403.     (all)
  404. )
  405.  
  406. (complete 95)
  407.  
  408. ; Ändere die S:User-Startup
  409.  
  410. (startup "TeX"
  411.     (prompt
  412.         "Es muß noch ein Befehl in die \"S:user-startup\" eingefügt "
  413.         "werden, damit Ihr System für TeX korrekt konfiguriert ist.")
  414.     (help "Diese Änderung MUSS vorgenommen werden, oder TeX wird "
  415.           "nicht funktionieren!")
  416.    (command
  417.         "ASSIGN TeX: \"" TeX_dest "\"\n"
  418.     )
  419. )
  420.  
  421. ; Alle Assigns wieder initialisieren
  422.  
  423. (if (not @pretend)
  424.     (makeassign "TeX" TeX_dest)
  425. )
  426.  
  427. (complete 100)
  428.  
  429.     ; cleanup
  430.  
  431. (message
  432.    "Bitte stellen Sie nach der Installation die Grundeinstellungen im Programm \"MUI-Rechnung\" nach "
  433.    "Ihren Bedürfnissen ein. Danach kann mit \"MUI-Rechnung\" gearbeitet werden. "
  434.    "Mit dem Programm \"MUI\" können Sie die Oberfläche der MUI-Rechnung nach Ihren "
  435.    "Wünschen einstellen (eigener Screen, Fonts, MagicWB-look, ...)."
  436. )
  437.  
  438. (makeassign "MUI-Rechnung" (safe))
  439.  
  440.     ; this is not strictly necessary, but doesn't hurt -- there is always
  441.     ; a default (exit) at the end of any script
  442. (exit)
  443.